home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / I-Info Magazine / (c)i21.d64 / tele-chess 1.4 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  9KB  |  304 lines
  1. 0 IFPEEK(829)<>254THENPOKE829,254:LOAD"CHESS.CHRSET",8,1
  2. 2 POKE53272,56:POKE53265,27:POKE56576,196:POKE53270,200:POKE648,204:PRINT"[147]"
  3. 3 POKE53280,0:POKE53281,0:POKE53282,10:POKE53283,1
  4. 4 PRINT"[144]"CHR$(8):POKE56,158:CLR:OPEN5,2,0,CHR$(6)+CHR$(0)
  5. 5 X=1:Y=7:POKE53270,PEEK(53270)OR16:POKE53285,7:FL=1:GOSUB1200:PRINT#5,MO$:S=54272
  6. 6 DO$=""
  7. 8 TI$="000000":JT=2
  8. 10 PRINT"[147]"
  9. 21 DIMSI(24)
  10. 25 DIMB(8,8),PI$(13),BB(8,8):CA$="[129][149][150][151][152][153][154][155]":CH$(0)="[151]":CH$(1)="[154]":BS=6:WS=3
  11. 26 PI$(0)="   [157][157][157]   [146][145]"
  12. 27 PI$(1)="   [157][157][157]   [146][145]"
  13. 28 PI$(2)="[176][174][172][157][157][157][173][189][188][145]"
  14. 29 PI$(3)="[193][211][196][157][157][157][218][216][195][145]"
  15. 30 PI$(4)="[178][163][183][157][157][157][184][162][185][145]"
  16. 31 PI$(5)="[210][212][217][157][157][157][213][201][207][145]"
  17. 32 PI$(6)="[190][191][170][157][157][157][173][189][188][145]"
  18. 33 PI$(7)="[214][194][206][157][157][157][218][216][195][145]"
  19. 34 PI$(8)="[187][165][180][157][157][157][173][189][188][145]"
  20. 35 PI$(9)="[198][199][200][157][157][157][218][216][195][145]"
  21. 36 PI$(10)="[181][161][182][157][157][157][173][189][188][145]"
  22. 37 PI$(11)="[202][203][204][157][157][157][218][216][195][145]"
  23. 38 PI$(12)="[171][179][177][157][157][157][166][220][168][145]"
  24. 39 PI$(13)="[209][215][197][157][157][157][219][221][169][145]"
  25. 40 GOTO195
  26. 100 REM ***PRINT BOARD***
  27. 110 PRINT"";:FORN=1TO8:VA=(INT(N/2)*2=N)*-1:FORO=1TO8
  28. 130 CP=0:CH=B(N,O):IFCH>9THENCP=1:CH=CH-10
  29. 140 PRINTCH$(VA)PI$((CH*2)+CP);:VA=(VA+1)AND1:NEXT:PRINT:PRINT:PRINT"";:NEXT
  30. 150 RETURN
  31. 195 TI$="000000":PRINT"[147]"LEFT$(DO$,11)SPC(15)"[155]PLEASE WAIT":GOSUB200
  32. 196 PRINT"[147]":POKE53265,PEEK(53265)AND239:GOSUB100:GOSUB1300
  33. 197 GOSUB1600:GOSUB700:GOSUB711:POKE53265,PEEK(53265)OR16:GOTO720
  34. 200 REM *** PIECE MEMORY ***
  35. 220 FORN=1TO8:FORM=1TO8:READB(N,M):NEXT:NEXT:IFFL=0THENGOSUB1600:X=4:GOTO6000
  36. 221 FORN=1TO8:FORI=1TO8
  37. 222 IF(B(N,I)<10 AND B(N,I)>0)THENB(N,I)=B(N,I)+10:GOTO224
  38. 223 IFB(N,I)>10THENB(N,I)=B(N,I)-10
  39. 224 NEXT:NEXT:B(1,4)=15:B(1,5)=16:B(8,4)=5:B(8,5)=6:GOSUB1600:GOTO6000
  40. 230 DATA 4,2,3,6,5,3,2,4
  41. 240 DATA 1,1,1,1,1,1,1,1
  42. 250 DATA 0,0,0,0,0,0,0,0
  43. 260 DATA 0,0,0,0,0,0,0,0
  44. 270 DATA 0,0,0,0,0,0,0,0
  45. 280 DATA 0,0,0,0,0,0,0,0
  46. 290 DATA 11,11,11,11,11,11,11,11
  47. 295 DATA 14,12,13,16,15,13,12,14
  48. 500 REM *** ELECT PAWN ***
  49. 510 B(F1,F2)=5+10*V:RETURN
  50. 600 REM *** MOVE PIECE ***
  51. 605 GOSUB1600:IFOK<>1THENRETURN
  52. 606 IFB(S1,S2)=0THENRETURN
  53. 607 GI=1:GOSUB850
  54. 610 C=B(F1,F2):A=B(S1,S2):B(S1,S2)=0:B(F1,F2)=A
  55. 611 V=0:IFA>9THENV=1
  56. 612 SF=0:IFC<>0THENSF=1
  57. 616 IF(A=1ORA=11)AND(F1=8ORF1=1)THENGOSUB500
  58. 620 VV=1:IF(INT(S2/2)*2=S2)=(INT(S1/2)*2=S1)THENVV=0
  59. 621 JT=2:FORI=0TO5
  60. 622 PRINT"[149]"LEFT$(DO$,(S1-1)*2)SPC((S2-1)*3)PI$((A-V*10)*2+V):GOSUB5000
  61. 623 PRINT"[129]"LEFT$(DO$,(S1-1)*2)SPC((S2-1)*3)PI$((A-V*10)*2+V):GOSUB5000
  62. 626 NEXT
  63. 627 PRINT""LEFT$(DO$,(S1-1)*2)SPC((S2-1)*3)CH$(VV)PI$(0)
  64. 630 CP=0:CH=B(F1,F2):IFCH>9THENCP=1:CH=CH-10
  65. 633 VV=1:IF(INT(F2/2)*2=F2)=(INT(F1/2)*2=F1)THENVV=0
  66. 634 IFSF=1THENGOSUB6050
  67. 635 IFSF=0THENGOSUB850
  68. 636 FORI=0TO5
  69. 637 PRINT"[149]"LEFT$(DO$,(F1-1)*2)SPC((F2-1)*3)PI$((CH*2)+CP):GOSUB5000
  70. 638 PRINT"[129]"LEFT$(DO$,(F1-1)*2)SPC((F2-1)*3)PI$((CH*2)+CP):GOSUB5000
  71. 639 NEXT
  72. 640 PRINT""CH$(VV)LEFT$(DO$,(F1-1)*2)SPC((F2-1)*3)PI$((CH*2)+CP)
  73. 670 GI=5:RETURN
  74. 700 REM *** SPRITE SET-UP ***
  75. 701 SX=28+(X*24):SY=50+(Y*16):POKE53276,PEEK(53276)OR1:POKE53287,0
  76. 710 POKE53240,160:POKE53269,1:POKE53248,SX:POKE53249,SY:RETURN
  77. 711 POKE198,3:POKE631,79:POKE632,75:POKE633,13:POKE53280,0:RETURN
  78. 720 JV=ABS((PEEK(56320)AND31)-31)
  79. 730 IFJV=0THEN900
  80. 735 JT=5:GOSUB5000:JT=2
  81. 740 IFJV=1ANDY>1THENY=Y-1
  82. 750 IFJV=2ANDY<8THENY=Y+1
  83. 760 IFJV=4ANDX>1THENX=X-1
  84. 770 IFJV=8ANDX<8THENX=X+1
  85. 775 IFJV=16ANDIL=0THENIL=1:GOSUB800:GOTO720
  86. 776 IFJV=16ANDIL=1THENIL=0:GOTO790
  87. 780 GOSUB700:GOTO720
  88. 790 GOSUB800:IF(S1=F1)AND(S2=F2)THENGOTO720
  89. 795 GOSUB1100:GOSUB600:GOTO720
  90. 800 REM *** BUTTON PRESSED ***
  91. 801 IF(IL=1)AND(B(Y,X)=0)THENIL=0:RETURN
  92. 810 IFIL=1THENPOKE53285,14:S1=Y:S2=X
  93. 820 IFIL=0THENPOKE53285,7:F2=X:F1=Y
  94. 825 JV=ABS((PEEK(56320)AND31)-31)
  95. 830 IFJV=16THEN825
  96. 840 S=54272:GI=3
  97. 850 POKES+4,64:POKES+22,45:POKE S+1,7+GI
  98. 851 POKE S+5,9
  99. 852 POKE S+6,9
  100. 854 POKE S+4,65
  101. 855 FOR D=1 TO 20: NEXT D
  102. 856 FOR D=1 TO 20: NEXT D
  103. 857 POKE S+4,64
  104. 858 RETURN
  105. 900 REM *** CHAT MODE ***
  106. 905 PRINT"[155]"LEFT$(DO$,21)SPC(31)LEFT$(TI$,2)":"MID$(TI$,3,2);
  107. 906 PRINT"[151][145][145][157][157][157][157][157][157]ELAPSED"
  108. 910 GETA$:IFA$=""THEN940
  109. 911 IFASC(A$)>132ANDASC(A$)<141THENGOTO2000
  110. 913 IFA$=CHR$(13)THENA$="... ":GOTO916
  111. 914 IFA$=CHR$(20)ANDLEN(T$)>0THEN916
  112. 915 IFASC(A$)<32ORASC(A$)>90THEN940
  113. 916 PRINT#5,A$;:IFA$=CHR$(20)THENA$="":T$=LEFT$(T$,LEN(T$)-1)
  114. 920 T$=T$+A$:T$=RIGHT$(T$,24):PRINT""BB$LEFT$(DO$,21)"  "T$" ":GOTO910
  115. 940 GET#5,A$:IFA$=""THEN720
  116. 941 IFA$=CHR$(254)THENGOSUB1000:GOTO720
  117. 942 IFA$=CHR$(1)THENPRINT#5,CHR$(226);:GOTO720
  118. 944 IFA$=CHR$(20)ANDLEN(Y$)>0THEN946
  119. 945 IFASC(A$)<32ORASC(A$)>90THEN940
  120. 946 IFA$=CHR$(20)THENA$="":Y$=LEFT$(Y$,LEN(Y$)-1)
  121. 950 Y$=Y$+A$:Y$=RIGHT$(Y$,24):PRINT""AA$LEFT$(DO$,19)"  "Y$" ":GOTO720
  122. 1000 REM **** RECEIVE THE MOVE ****
  123. 1004 OK=0:GET#5,A$:IFA$<>""THEN1004
  124. 1006 RE=1:PRINT#5,CHR$(1);:TL=TI+300
  125. 1007 GET#5,A$:IFA$<>""THEN1020
  126. 1010 IFTI<TLTHEN1007
  127. 1015 GOTO1070
  128. 1020 IFA$=CHR$(226)THENRETURN
  129. 1030 RE%(RE)=ASC(A$+CHR$(0)):RE=RE+1:IFRE<6THENGOTO1007
  130. 1040 CK=RE%(1)+RE%(2)+RE%(3)+RE%(4):IFCK<>RE%(5)THEN1070
  131. 1050 PRINT#5,CHR$(6);
  132. 1060 OK=1:S1=RE%(1):S2=RE%(2):F1=RE%(3):F2=RE%(4):GOSUB600:RETURN
  133. 1070 PRINT#5,CHR$(9);:TL=TI+300
  134. 1080 GET#5,A$:IFA$=CHR$(254)THEN1006
  135. 1090 IFTI<TLTHEN1080
  136. 1095 RETURN
  137. 1100 REM **** SEND THE MOVE ****
  138. 1105 OK=0:SY=9-S1:SX=9-S2:FY=9-F1:FX=9-F2:CK=SY+SX+FY+FX:TR=0
  139. 1110 TL=TI+300:PRINT#5,CHR$(254);
  140. 1120 GET#5,A$:IFA$<>""THEN1140
  141. 1130 IFTI<TLTHEN1120
  142. 1135 TR=TR+1:IFTR<10THENGOTO1110
  143. 1136 IFTR=10THENRETURN
  144. 1140 IFA$<>CHR$(1)THENGOTO1110
  145. 1145 PRINT#5,CHR$(SY)CHR$(SX)CHR$(FY)CHR$(FX)CHR$(CK);
  146. 1150 TL=TI+300
  147. 1160 GET#5,A$:IFA$<>""THEN1170
  148. 1165 IFTI<TLTHEN1160
  149. 1170 IFA$<>CHR$(6)THEN1110
  150. 1180 OK=1:RETURN
  151. 1200 REM *** TITLE SCREEN ***
  152. 1201 POKE 53269,0
  153. 1202 PRINT"[147][149]TELEGAME SOFTWARE PRESENTS...
  154. 1203 [153]"LISTTELE-CHESS 64  #VERIFY1986
  155. 1204 PRINT"[151]FREEWARE VERSION 1.4
  156. 1205 [153]"VERIFYTO BECOME A REGISTERED USER, PLEASE SEND";
  157. 1206 [153]"$20.00 TO TELEGAME SOFTWARE, SUB PO 37,
  158. 1207 PRINT"SASKATOON, SASK. CANADA.  THIS WILL PUT
  159. 1208 [153]"YOU ON AN UPDATE LIST.  HAVE FUN...
  160. 1210 PRINTSPC(11)"[154][176][174][172][151][178][163][183][154][181][161][182][151][187][165][180][154][176][174][172]"
  161. 1211 PRINTSPC(11)"[154][173][189][188][151][184][162][185][154][173][189][188][151][173][189][188][154][173][189][188]"
  162. 1212 PRINTSPC(12)"[155]TELE-CHESS 64"
  163. 1213 PRINTSPC(11)"[151][193][211][196][154][210][212][217][151][202][203][204][154][198][199][200][151][193][211][196]"
  164. 1214 PRINTSPC(11)"[151][218][216][195][154][213][201][207][151][218][216][195][154][218][216][195][151][218][216][195]"
  165. 1220 PRINT"[155]BY TOM CONROY AND JAMES HASTINGS-TREW"
  166. 1222 TL=TI+1800:PRINT"[149]INSTRUCTIONS? (Y/N)
  167. 1223 [161]IN$
  168. 1224 [139]IN$[179][177]""[167]1227
  169. 1225 [139]TI[179]TL[167]1223
  170. 1226 [141]7000:[137]1200
  171. 1227 [139]IN$[178]"Y"[167][141]2400
  172. 1230 [133]"POKE       YOUR NAMEVERIFY";NA$
  173. 1235 [133]"POKE  OPPONENTS NAMEVERIFY";NO$
  174. 1236 [133]"POKE   MODEM COMMANDVERIFY";MO$
  175. 1240 [133]"POKE  BLACK OR WHITEVERIFY";CL$
  176. 1250 [139]CL$[178]"B"[167]FL[178]0:[137]1280
  177. 1260 [139]CL$[178]"W"[167]FL[178]1:[137]1280
  178. 1270 [137]1240
  179. 1280 [142]
  180. 1300 [143] *** PRINT NAMES ***
  181. 1305 AA$[178]"VERIFY":BB$[178]"POKE":[139]FL[167]AA$[178]"POKE":BB$[178]"VERIFY"
  182. 1310 [153]""[166]27)AA$[200](NO$,10)
  183. 1316 [153][166]28)"VERIFYF1WAITLIST = UNDO"
  184. 1317 [153][166]28)"VERIFYF2WAITLIST = RESET"
  185. 1320 [153][166]28)"VERIFYF3WAITLIST = SAVE"
  186. 1321 [153][166]28)"VERIFYF4WAITLIST = LOAD"
  187. 1322 [153][166]28)"VERIFYF5WAITLIST = MODEM"
  188. 1323 [153][166]28)"VERIFYF6WAITLIST = MODIFY"
  189. 1324 [153][166]28)"VERIFYF7WAITLIST = CHECK"
  190. 1325 [153][166]28)"VERIFYF8WAITLIST = COLOUR"
  191. 1326 [153]""[166]27)BB$[200](NA$,10)
  192. 1327 [153]""[200](DO$,24)[166]11)"LIST-TELEGAME SOFTWARE-";
  193. 1328 [142]
  194. 1600 [143] *** OOPS ***
  195. 1610 [129]N[178]1[164]8:[129]I[178]1[164]8:BB(N,I)[178]B(N,I):[130]:[130]:[142]
  196. 1700 [143] *** OPPS PRESSED ***
  197. 1705 [153]"LIST"[166]28)"*UNDOING*"
  198. 1710 [129]N[178]1[164]8:[129]I[178]1[164]8:B(N,I)[178]BB(N,I):[130]:[130]:[141]100
  199. 1715 [153]"VERIFY"[166]28)"VERIFYF1WAITLIST = UNDO":[142]
  200. 1800 [143] *** SAVE GAME ***
  201. 1810 FI$[178]"":[153]""[200](DO$,7)[166]28);"VERIFY          CMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";:[133]FI$
  202. 1811 [139]FI$[178]""[167]1840
  203. 1820 [160]15:[159]15,8,15:[160]2:[159]2,8,2,FI$[170]",S,W":[129]N[178]1[164]8:[129]I[178]1[164]8
  204. 1830 [152]2,B(N,I):[130]:[130]:[160]2:[160]15
  205. 1840 [153]""[200](DO$,7)[166]28)"VERIFYF3WAITLIST = SAVE":[142]
  206. 1900 [143] *** LOAD GAME ***
  207. 1910 FI$[178]"":[153]""[200](DO$,8)[166]28)"VERIFY          CMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";:[133]FI$
  208. 1911 [139]FI$[178]""[167]1940
  209. 1920 [160]15:[159]15,8,15:[160]2:[159]2,8,2,FI$[170]",S,R":[129]N[178]1[164]8:[129]I[178]1[164]8
  210. 1930 [132]2,B(N,I):[130]:[130]:[160]2:[160]15:
  211. 1940 [141]100:[153]""[200](DO$,8)[166]28)"VERIFYF4WAITLIST = LOAD":[142]
  212. 2000 [143] *** FUNCTION KEYS ***
  213. 2010 [139]A$[178]"INPUT"[167][141]1700
  214. 2020 [139]A$[178]"GOTO"[167]FL[178](FL[170]1)[175]1:[140]:TI$[178]"000000":[137]195
  215. 2030 [139]A$[178]"DIM"[167][141]1800
  216. 2040 [139]A$[178]"RUN"[167][141]1900
  217. 2050 [139]A$[178]"READ"[167][141]2100
  218. 2060 [139]A$[178]"IF"[167][141]2200
  219. 2070 [139]A$[178]"RESTORE"[167][141]3000
  220. 2080 [139]A$[178]"LET"[167][141]4000
  221. 2099 [137]913
  222. 2100 [143] *** MODEM COMMAND ***
  223. 2110 [153]""[200](DO$,9)[166]28)"VERIFY           CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";:[133]MC$
  224. 2120 [152]5,MC$
  225. 2125 [153]""[200](DO$,9)[166]28)"VERIFYF5WAITLIST = MODEM":[142]
  226. 2200 [143] *** MODIFY THE BOARD ***
  227. 2210 [141]2300:[153]""[200](DO$,18);"POKE WHAT PIECE WOULD YOU LIKE TO PLACE AT "
  228. 2220 [153]"    THE CURRENT POINTER POSITION?"
  229. 2221 [153]"VERIFY  0=LISTSPACEWAIT VERIFY 1=LISTPAWNWAIT  VERIFY2=LISTKNIGHTWAIT  VERIFY3=LISTBISHOPWAIT"
  230. 2230 [153]"       VERIFY4=LISTROOKWAIT VERIFY5=LISTQUEENWAIT   VERIFY6=LISTKINGWAIT"
  231. 2235 [153]"VERIFY         PRESS RETURN TO ABORT":
  232. 2240 [161]B$:[139]B$[178]""[167]2240
  233. 2250 [139]B$[178][199](13)[167][141]2300:[142]
  234. 2260 [139][197](B$)[179]0[176][197](B$)[177]6[167]2240
  235. 2261 B[178][197](B$):[139]B[177]0[167][153]"ON          POKEBLACK LISTOR VERIFYWHITE LIST(B/W)?"
  236. 2265 [139]B[178]0[167]AD[178]0:[137]2270
  237. 2266 [161]B$:[139]B$[179][177]"B"[175]B$[179][177]"W"[167]2266
  238. 2267 AD[178]0:[139]B$[178]"B"[167]AD[178]10
  239. 2270 B(Y,X)[178]B[170]AD:F1[178]Y:F2[178]X:[141]630:[141]2300:[142]
  240. 2300 [143] *** CLEAR BOTTOM OF SCREEN **
  241. 2310 [129]N[178]18[164]23:[153]"";[200](DO$,N);"                                       "
  242. 2320 [130]:[142]
  243. 2400 [143] *** INSTRUCTIONS ***
  244. 2410 [160]15:[159]15,8,15:[160]2:[159]2,8,2,"TELE-CHESS.DOC,S,R":[153]"LOADVERIFY"
  245. 2420 C[178]C[170]1:[132]2,A$:[139]A$[178]"END"[167][160]2:[141]2500:[142]
  246. 2425 [153]A$
  247. 2430 [139]C[178]21[167]C[178]0:[153]"POKE           RETURN TO CONTINUEVERIFY":[141]2500
  248. 2440 [137]2420
  249. 2500 [143] *** WAIT ***
  250. 2510 [161]B$:[139]B$[178]""[167]2510
  251. 2520 [153]"LOAD":[142]
  252. 3000 [143] *** ALTER COLOURS ***
  253. 3010 [141]2300:[153]""[200](DO$,18)"POKE  PRESS FUNCTION KEY TO ALTER COLOURS"
  254. 3020 [153]"        OR PRESS LISTRETURNWAITPOKE TO EXIT"
  255. 3030 [153]" LISTF1WAITVERIFY = BLACK PIECES    LISTF3WAITVERIFY = WHITE PIECES"
  256. 3040 [153]" LISTF5WAITVERIFY = BLACK SQUARES  LISTF7WAITVERIFY = WHITE SQUARES"
  257. 3050 [161]B$:[139]B$[178]""[167]3050
  258. 3060 [139]B$[178][199](13)[167][141]2300:[142]
  259. 3070 [139]B$[178]"INPUT"[167]A[178][194](53282)[175]15:A[178](A[170]1)[175]15:[151]53282,A
  260. 3080 [139]B$[178]"DIM"[167]A[178][194](53283)[175]15:A[178](A[170]1)[175]15:[151]53283,A
  261. 3090 [139]B$[178]"READ"[167]BS[178](BS[170]1)[175]7:CH$(1)[178][202](CA$,BS[170]1,1):[141]100
  262. 3100 [139]B$[178]"LET"[167]WS[178](WS[170]1)[175]7:CH$(0)[178][202](CA$,WS[170]1,1):[141]100
  263. 3110 [137]3050
  264. 4000 [143] *** PRINT CHECK ****
  265. 4010 B$[178]"CHECK":[129]I[178]0[164]4:[151]631[170]I,[198]([202](B$,I[170]1,1)):[130]:[151]631[170]I,13
  266. 4020 [151]198,6:[142]
  267. 5000 [143] *** WAIT FOR 2 JIFFIES ***
  268. 5010 TL[178]TI[170]JT
  269. 5020 [139]TI[179]TL[167]5020
  270. 5030 [142]
  271. 6000 [129]J[178]0[164]24:[135] Z:SI(J)[178]Z:[151]S[170]J,Z:[130]:[142]
  272. 6010 [131] 0,4,0,12,64,10,0
  273. 6020 [131] 0,0,0,12,64,12,0
  274. 6030 [131] 0,4,0,12,128,12,0
  275. 6040 [131] 0,50,245,47
  276. 6050 [129]J[178]0[164]24:[151]54272[170]J,SI(J):[130]
  277. 6060 [151]54276,64:[151]54290,128:[151]54276,65:[151]54290,129:[142]
  278. 7000 [143] *** ADVERTISEMENT ***
  279. 7010 [153]"LOADVERIFYALSO AVAILABLE FROM TELEGAME SOFTWARE:"
  280. 7020 [153]"POKE          THE STOCK EXCHANGE"
  281. 7030 [153]"VERIFYMUCH MORE THAN JUST ANOTHER BBS PROGRAM,";
  282. 7040 [153]"POKETHE STOCK EXCHANGE VERIFYBRINGS ALL THE FUN"
  283. 7050 [153]"AND EXCITEMENT OF MULTI-PLAYER GAMEING"
  284. 7060 [153]"RIGHT INTO YOUR HOME. WITH A MODEM, C64"
  285. 7070 [153]"OR C128 COMPUTER, AND A 1541 DISK DRIVE"
  286. 7080 [153]"YOU CAN CONTROL THE ACTION AS UP TO 50"
  287. 7090 [153]"USERS COMPETE IN THIS STIMULATING AND"
  288. 7100 [153]"FUN STOCK MARKET SIMULATION. THE PROGRAM";
  289. 7110 [153]"ALSO HAS A FULL MESSAGE SECTION, FOR"
  290. 7120 [153]"PUBLIC CONFERENCES OR PRIVATE ELECTRONIC";
  291. 7130 [153]"MAIL. THERE ARE ALSO EXTENSIVE OPTIONS"
  292. 7140 [153]"AVAILABLE TO THE SYSOP THAT MAKE THIS"
  293. 7150 [153]"PROGRAM A BREEZE TO OPERATE AND A"
  294. 7160 [153]"PLEASURE TO OWN. IF YOU LIKE LISTTELE-CHESSVERIFY"
  295. 7170 [153]"THEN YOU WILL LOVE POKETHE STOCK EXCHANGEVERIFY!"
  296. 7180 [153]"POKEONLY $89.95 FROM VERIFYTELEGAME SOFTWARE
  297. 7190 PRINT"                 SUB PO 37"
  298. 7200 PRINT"                 SASKATOON,SASK
  299. 7210 [153]"                 CANADA, S7H 0X0
  300. 7220 PRINT"[155]TRY IT OUT AT [151](306) 373-0798"
  301. 7230 TL=TI+1800
  302. 7235 GETA$:IFA$=""THENIFTI<TLGOTO7235
  303. 7240 RETURN
  304.